home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xdmetex.lha / rexx / TeXify.xdme < prev    next >
Text File  |  1995-09-07  |  2KB  |  33 lines
  1. /* TeX von DME aus synchron starten */
  2. /*                                                         */
  3. /* (c) 1994 Helmut Kindler        $VER TeXify 1.1 (2.6.94) */                        
  4.  
  5. parse ARG file
  6.  
  7. if upper(right(file,4)) ~= '.TEX' then do
  8.         title '(TeXify braucht "*.tex"-Files,' file ' geht nicht!)'
  9.         address COMMAND wait 2
  10.     end
  11. else do
  12.     file = left(file,length(file)-4)
  13.     title '(Rufe AmigaTeX mit Filenamen' file ')'
  14.     address 'AMIGATEX'                    /* Hi TeX, jetzt büs du dran */
  15.     'TeXify' file                         /* denn mach man hin         */
  16.     'NextPrompt'                          /* ich wart so lang          */
  17.     'Prompt'                              /* sach man was los is       */
  18.     'ErrorLoc'                            /* hast nen Fehler für mich? */
  19.     pro = getclip('AmigaTeX.Prompt')      /* denn hol ich mir dat ma   */
  20.     loc = getclip('AmigaTeX.ErrorLoc')    /* auch den Fehler           */
  21.     if pro ~= '**' then do                /* Falls ken normaler Prompt */
  22.         title 'Fehler' pro 'in File/Zeile/Spalte:' loc ')'
  23.                                           /* sach ich's dem User       */
  24.         'Abort'                           /* kannst aufhörn AmigaTeX   */
  25.         address                           /* ich geh zum DME           */
  26.         line = word(loc,2)                /* hol mir noch kurz Zeile   */
  27.         col  = word(loc,3)                /* und Spalte                */
  28.         'goto' line                       /* DME geh du man zur Zeile  */
  29.         'first'                           /* dort auf's erste Zeichen  */
  30.         'repeat' col - 1 'right'          /* un in'ne richtige Spalte  */
  31.     end
  32. end
  33.